home *** CD-ROM | disk | FTP | other *** search
/ PC Open 93 / PC Open 93 CD 2.bin / PDF / webdeveloper / lezione_4 / inseriscifoto.asp < prev    next >
Encoding:
Text File  |  2003-12-13  |  2.0 KB  |  107 lines
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  2.  
  3. <html>
  4. <head>
  5.     <title>Gestione foto di Mario Rossi</title>
  6. </head>
  7.  
  8. <body>
  9.  
  10. <h1>Inserimento nuova foto</h1>
  11.  
  12. <%
  13.  
  14. Const adOpenForwardOnly = 0
  15. Const adLockReadOnly = 1
  16.  
  17. Dim contatore
  18. Dim sql1,sql2
  19. Dim conn, rs
  20. Dim i,j
  21.  
  22. Set conn = Server.CreateObject("ADODB.Connection")
  23. Set rs = Server.CreateObject("ADODB.Recordset")
  24. conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/foto2.mdb")
  25.  
  26. %>
  27.  
  28. <form action="inseriscifoto_risposta_2.asp" method="post" cellpadding="2" cellspacing="2">
  29.  
  30. <table border="0">
  31.     <tr>
  32.         <td>Nome</td>
  33.         <td><input type="text" size="20" name="nome" maxlenght=""></td>
  34.     </tr>
  35.     <tr>
  36.         <td>Titolo</td>
  37.         <td><input type="text" size="20" name="titolo" maxlenght=""></td>
  38.     </tr>
  39.     <tr>
  40.         <td>Data</td>
  41.         <td><input type="text" size="2" name="datagg" maxlenght="2">/<input type="text" size="2" name="datamm" maxlenght="2">/<input type="text" size="4" name="datayyyy" maxlenght="4"></td>
  42.     </tr>
  43.     <tr>
  44.         <td>Luogo</td>
  45.         <td><input type="text" size="20" name="luogo" maxlenght=""></td>
  46.     </tr>
  47.     <tr>
  48.         <td>Provincia</td>
  49.         <td>
  50.             <select name="provincia">
  51. <%
  52.  
  53. sql = "SELECT * FROM Provincia ORDER BY Provincia DESC "
  54.  
  55. rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly
  56.  
  57. do until rs.Eof
  58. %>
  59.             <option value="<%=rs("IdProvincia")%>"><%=rs("Provincia")%></option>
  60. <%
  61.     rs.movenext
  62. loop
  63. rs.Close()
  64. %>
  65.             </select>
  66.         </td>
  67.     </tr>
  68.     <tr>
  69.         <td>Stato</td>
  70.         <td>
  71.             <select name="stato">
  72. <%
  73.  
  74. sql = "SELECT * FROM Stato ORDER BY Stato DESC "
  75.  
  76. rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly
  77.  
  78. do until rs.Eof
  79. %>
  80.             <option value="<%=rs("IdStato")%>"><%=rs("Stato")%></option>
  81. <%
  82.     rs.movenext
  83. loop
  84. rs.Close()
  85. %>
  86.             </select>
  87.         </td>
  88.     </tr>
  89.     <tr>
  90.         <td align="right" colspan="2"><input type="submit" name="invia" value="Inserisci"></td>
  91.     </tr>
  92.  
  93. </table>
  94.  
  95. </form>
  96.  
  97. </body>
  98. </html>
  99.  
  100. <%
  101. set rs = nothing
  102. conn.close
  103. set conn = nothing
  104.  
  105. %>
  106.  
  107.